home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb27600.lsp < prev    next >
Text File  |  1998-03-15  |  3KB  |  88 lines
  1. ;=============276.00 FUßSTÜTZE FÜR ARBEITSTISCH 1000
  2.  
  3. (EAITDBL "0027600")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:27600V1 ( / P1 Wi)
  8.      (EAITDBL "0027600")
  9.      (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.      (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "27600V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 31)) 207) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31. (defun C:27600S1 ( / P1 Wi)
  32.      (EAITDBL "0027600")
  33.      (princ (strcat "\n\n" EAITbez1))
  34.      (EAITvari)
  35.      (EAITvars)
  36.      (setvar "ORTHOMODE" 0)
  37.      (EAITbpt nil nil nil)
  38.      (setq P1 (getpoint))
  39.      (if (= P1 nil)(setq P1 (EAITrpt)))
  40.      (setvar "OSMODE" 0)
  41.      (setvar "ORTHOMODE" 1)
  42.      (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  43.      (command EAITege (strcat EAITpfn "27600S1") P1 "" "" EAITofkei pause)
  44.  
  45.      (setq Wi (EAITbw))
  46.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 22)) 220) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.      )
  49.  
  50.      (EAITvarz2)
  51.      (princ)
  52.  
  53. );defun s1
  54.  
  55. (defun C:27600D ( / P1 Wi)
  56.      (EAITDBL "0027600")
  57.      (princ (strcat "\n\n" EAITbez1))
  58.      (EAITvari)
  59.      (EAITvars)
  60.      (setvar "ORTHOMODE" 0)
  61.      (EAITbpt nil nil nil)
  62.      (setq P1 (getpoint))
  63.      (if (= P1 nil)(setq P1 (EAITrpt)))
  64.      (setvar "OSMODE" 0)
  65.      (setvar "ORTHOMODE" 1)
  66.    
  67.      (initget (strcat (EAITmg "mb_mld13" "008") " " (EAITmg "mb_mld13" "009")))
  68.      (EAITmsg "mb_mld12" "\n " "028" " ")(EAITmsg "mb_mld13" nil "008" "/<")(EAITmsg "mb_mld13" nil "009" ">")
  69.                            ;Vollstaendige Darstellung der Multiblöcke ?  Ja/<Nein>
  70.      (setq s (getreal))
  71.      (if (= s (EAITmg "mb_mld13" "008"))(setq s (strcat EAITpfn "27600d1"))(setq s (strcat EAITpfn "27600d2")))
  72.    
  73.      (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  74.      (command EAITege s P1 "" "" EAITofkei pause)
  75.  
  76.      (setq Wi (EAITbw))
  77.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 57)) 333) "" "" ""
  78.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  79.      )
  80.  
  81.      (EAITvarz2)
  82.      (princ)
  83.  
  84. );defun D
  85.  
  86.  
  87. (princ)
  88.